
□ ECUS NO. 


TITLE 


AUTHOR 


COMPANY 


DATE 


SOURCE LANGUAGE 


8-522 

•PAGEIT* 

William R. Anderson, Jr. 

' ' r ■" , '' : ’• - . 

Portsmouth Abbe/ School 
Portsmouth, Rhode Island 

March 15, 1972 

PAL III 


Al though this program has been tested by the contributor, no warranty > express or implied, is made by the contributor. 
Digital Equipment Computer Users Society or Digital Equipment Corporation as to the accuracy or functioning of the 
program or related program material, and no responsibility is assumed by these parties in, connection therewith. 











■ PAGEIT* 


DECUS Program Library Write-up DECUS NO. 8-522 


/ VERSION 2.0 

/ MARCH 15* 1972 + ♦ ♦ ASSEMBLED ON PDP 8/E. 

/ PAL-III OVERLAY FOR FORMATTED PAGING IN THE 
/ FIRST AND THIRD PASS WITH PAGE NUMEERS. 

/ BY : WILLIAM ANDERSON* JR.* 

/ PORTSMOUTH ABBEY SCHOOL* PORTSMOUTH RHODE ISLAND 

/ THIS ROUTINE REQUIRES 200 LOCATIONS C OCTAL) AT *7200. 

/ BY MEANS OF PATCHING PAL-III* IT IS POSSIBLE 
/ TO MONITOR ITS OUTPUT * SO THAT A COUNT 
/ON LINE FEEDS CAN BE MAINTAINED. 

/ THIS ROUTINE PROVIDES THE OPTION OF SELECTING 
/ A FORMATTED OUTPUT ON THE TERMINAL. 

/ ALL PRINTED MATTER WILL PLACED ON FORM SIZE PAGES 
/ WITH PAGE NUMBERS AT THE TOP. 

/ THE SIZE OF EACH PAGE CAN BE SET BY THE USER OR 
/ WILL BE DEFAULTED TO 55 LINES. 

/ AN EJECT OPTION IS GIVEN TO THE USER SO THAT 
/ HE CAN EJECT TO A NEW PAGE WHEN DESIRED. 

/ OPERATION I LOAD PAL-III* USING BIN LOADER. 

/ LOAD THE PAGING OVERLAY. 

/ 

/ YOU CAN USE PAL-III NORMALLY* EXCEPT YOU CALL 
/ THE PAGING ROUTINE BY SETTING BIT '8* TO ONE ON THE 
/ CONSOLE. IF BIT ’8* IS NOT SET* THEN PAL-III WILL 
/ FUNCTION NORMALLY WITHOUT PAGING. 

/ REMEMBER ON THE SECOND PASS* YOU MUST LOWER BIT '8* 

/ SO THAT THE HEADER WILL NOT APPEAR ON YOUROBJECT TAPE. 

/ TO USE THE EJECT OPTIONS* PLACE AN UP ARROW IN YOUR 
/ SOURCE LISTING AFTER A SLASH* OR IF YOU, ‘ ARE USING A 
/ DEC WRITER * TYPE THE OVERHEAD BRACKET. 

/ UPON RECIEVING THE EJECT COMMAND* THE PAGE ROUTINE 
/ WILL LINE FEED TO A NEW PAGE. 

/ WHEN PAL-III HALTS* THE PAGE ROUTINE WILL COMPLETE 
/ THE UNFINISHED PAGE WITH LINE FEEDS. 1 

/ THE TARE OFF POINT OF EACH PAGE IS PRINTED BY A 
/ IF THE USER TARES IT OFF AT THAT POINT* WHILE THE OUTPUT 
/IS BEING PRINTED THEN HE CAN BE ASSURED OF UNIFIED PAGE 
/ LENGTHS. 

/ THE USER CAN SET HIS OWN PAGE LENGTHS BY CHANGING 
/ LOCATION 7362 TO THE NEGATIVE OF THE NUMBER OF LINES 
/ HE WANTS PER PAGE. THE USER MUST SET THE NUMBER IN 
/ OCTAL AND COMPLEMENT AND INCREMENT IT. 

/ RESTRICTIONS : THIS ROUTINE REQUIRES ONE PAGE OF 
/ PAL’S SYMBOL TABLE STORAGE* SO THAT THE 
/ MAXIMUM OF 576 SYMBOLS IS REDUCED TO 544. 

/ EJECT COMMAND --> » 
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/ PATCHES TO PAL-III* 

*0 

0000 7200 INIT* RESET / ADDRESS OF POINTER RESET ROUTINE. 


*214 


0214 

5400 

RETURN* 

JMP I 

INI T 

0240 

5764 

*240 

C0NT2* 

JMP I 

FORM 

0362 

5763 

*362 

JMP I 

. + 1 

0363 

0364 

7204 

7225 

FORM* 

CHECK 

FEED 



/ EJECT COMMAND —> 


/ ON PAL-III CALL FOR OSR* RESET 
/ POINTERS FOR PAGES AND LINES. 


/ ON HALT* COMPLETE PAGE. 


/ REPLACE TTY PRINTING ROUTINE WITH 
/ PAGING MONITOR. 

/ ADDRESS FOR HALT PROCESSING. 
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> 

/ MAIN ROUTINE = ONE PAGE IN LENGTH 
*7200 


7200 

3354 

RESET* 

DCA 

PAGE 

7201 

4233 


JMS 

NEWP 

72 02 

7604 


LAS 


7203 

5770 


JMP 

I K215 

7204 

4324 

CHECK* 

JMS 

OUT 

7205 

1361 


TAD 

M212 

7206 

7450 


SNA 


7207 

5217 


JMP 

LINES 

7210 

1356 


TAD 

M124 

7211 

7640 


SZA 

CLA 

7212 

5215 


JMP 

GOHOME 

7213 

4331 

SKIP* 

JMS 

EJECT 

7214 

4233 


JMS 

NEWP 

7215 

5616 

GOHOME* 

JMP 

I .+ 1 

7216 

0365 


FORM+1 

7217 

1362 

LINES* 

TAD 

LINE 

7220 

1363 


TAD 

M65 

7221 

7700 

K7700* 

SMA 

CLA 

7222 

5213 


JMP 

SKIP 

7223 

2362 


ISZ 

LINE 

7224 

5215 


JMP 

GOHOME 

7225 

4331 

FEED* 

JMS 

EJECT 

7226 

1364 


TAD 

DASH 

7227 

4324 


JMS 

OUT 

7230 

7602 

GETOUT* 

HLT 

CLA 

7231 

5632 


JMP 

I .+ 1 

7232 

0241 


C0NT2+1 



/ EJECT 

COMMAND —> 


/ ZERO PAGE NUMBER 

/ IF ROUTINE CALLED* PROCESS HEADER. 

/ RETURN ADDRESS TO PAL-III. 

/ PRINT A CHARACTER. 

/ CHECK FOR LINE FEED. 


/ CHECK FOR UP ARROW* EJECT OPTION. 

/IF NOT* RETURN. 

/ PROCESS LIFT ON PAGE. 

/ RETURN TO PAL-III. 


/ CHECK FOR ONE PRINTED PAGE. 


/ INCREMENT LINE COUNT. 

/ COMPLETE PAGE ON HALT. 

/ PRINT DASH FOR TARE POINT. 
/ NORMAL PAL-III HALT. 

/ RETURN TO PAL-III. 
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/ SUBROUTINES 


7233 

0000 

NEWP* 

0 

7234 

7604 


LAS 

7235 

0357 


AND K10 

7236 

7650 


SNA CLA 

7237 

5312 


JMP HOME 

72 40 

2354 


ISZ PAGE 

7241 

. 3362 


DCA LINE 

72 42 

1364 


TAD DASH 

7243 

4324 


JMS OUT 

72 4 4 

7300 


CLA CLL 

7245 

4313 


JMS RETUP 

7246 

1365 


TAD M 5 

7247 

3355 


DCA REGSET 

7250 

1372 


TAD BUFF 

7251 

3331 


DCA EJECT 

7252 

1731 


TAD I EJECT 

7253 

4324 


JMS OUT 

7254 

7200 


CLA 

7255 

2331 


ISZ EJECT 

7256 

2355 


ISZ REGSET 

7257 

5252 


JMP .-5 

7260 

1354 


TAD PAGE 

7261 

0357 


AND K10 

7262 

7650 


SNA CLA 

7263 

5274 


JMP NUMPRI 

7264 

1354 


TAD PAGE 

7265 

0360 


AND K2 

7266 

7650 


SNA CLA 

7267 

5274 


JMP NUMPRI 

7270 

1354 


TAD PAGE 

7271 

0221 


AND K 7700 

72 72 

1366 


TAD K100 

7273 

3354 


DCA PAGE 

72 7 4 

1354 

NUMPRI* 

TAD PAGE 

7275 

0221 


AND K7700 

7276 

7012 

K12* 

RTR 

7277 

7012 


RTR 

7300 

7012 


RTR 

7301 

1373 


TAD BASE 

7302 

4324 


JMS OUT 

7303 

7200 


CLA 

7304 

1354 


TAD PAGE 

7305 

0367 


AND K17 

7306 

1373 


TAD BASE 

7307 

4324 


JMS OUT 

7310 

7200 


CLA 

7311 

4313 


JMS RETUP 

7312 

5633 

HOME* 

JMP I NEWP 


/ PAGE HEADER ROUTINE. 

/ CHECK BIT 8. FOR PAGE OPTION. 

/IF NOT* RETURN. 

/ INCREMENT PAGE COUNT. 

/ ZERO LINE COUNT. 

/ PRINT TARE OFF POINT. 


/ TEMPORARY STORAGE. 


/ PRINT PAGE LABEL. 


/ PEEL OUT SECOND DIGIT 
/ PRINT NUMBER ON NON OVERFLOW. 


/ INCREMENT FIRST DIGIT AND CLEAR 
/ THE SECOND DIGIT. 


/ PEEL OFF FIRST DIGIT. 


/ SWAP AROUND INTO BITS 6-11. 
/ ADD BASE 


/ PEEL OUT SECOND 
/ AND PRINT IT. 
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7313 

0000 

RETUP# 

0 


7314 

1370 


TAD 

K215 

7315 

4324 


JMS 

OUT 

7316 

7200 


CLA 


7317 

1371 


TAD 

M4 

7320 

3355 


DCA 

REGSET 

7321 

1276 


TAD 

K12 

7322 

4346 


JMS 

MULTIP 

7323 

5713 


JMP 

I RETUP 

7324 

0000 

OUT# 

0 


7325 

6046 


TLS 


7326 

6041 


TSF 


7327 

5326 


JMP 

.-1 

7330 

5724 


JMP 

I OUT 

7331 

0000 

EJECT# 

0 


7332 

7604 


LAS 


7333 

0357 


AND 

K10 

7334 

7650 


SNA 

CLA 

7335 

5345 


JMP 

GOODBYE 

7336 

4313 


JMS 

RETUP 

7337 

1363 


TAD 

M65 

7340 

1365 


TAD 

MS 

7341 

1362 


TAD 

LINE 

7342 

3355 


DCA 

REGSET 

7343 

1276 


TAD 

K12 

7344 

4346 


JMS 

MULTIP 

7345 

5731 

GOODBYE# 

JMP 

I EJECT 

7346 

0000 

MULTIP# 

0 


7347 

4324 


JMS 

OUT 

7350 

2355 


ISZ 

REGSET 

7351 

5347 


JMP 

• — 2 

7352 

7200 


CLA 


7353 

5746 


JMP 

I MULTIP 


/ EJECT COMMAND —> r 


/ ROUTINE TO LF 4 TIMES AND RETURN. 

/ PRINTING ROUTINE. 

1 

/ CHECK BIT 8. FOR PAGE OPTION. 

/ CLEAR AND RESET PAGE. 

/ COMPUTE NUMBER OF LINES LEFT. 

/ TEMPORARY STORAGE. 

/ PRINT CHAR. 
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/ DECLARES 


7354 

0000 

PAGE* 

0 

7355 

0000 

REG SET* 

0 

7356 

7654 

M124* 

- 124 

7357 

0010 

K10* 

10 

7360 

0002 

K2* 

2 

7361 

7566 

M212* 

-212 

7362 

0000 

LINE* 

0 

7363 

7713 

M65* 

-65 

7364 

0255 

DASH* 

255 

7365 

7773 

M5* 

-5 

7366 

0100 

K 100* 

100 

7367 

0017 

K1 7* 

17 

7370 

0215 

K21 5* 

215 

7371 

7774 

M4* 

-4 

7372 

7374 

BUFF* 

TEXT 

7373 

0260 

BASE* 

260 

7374 

0320 

TEXT* 

320 

7375 

0301 


301 

7376 

0307 


307 

7377 

0305 


305 

7400 

0240 

END* 

240 


/ END OF PAGE ROUTINE 


t 
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BASE 

7373 

BUFF 

7372 

CHECK 

7204 

C0NT2 

0240 

DASH 

7364 

eject 

7331 

END 

7400 

FEED 

7225 

FORM 

0364 

GETOUT 

7230 

GOHOME 

7215 

GOODEY 

7345 

HOME 

7312 

INI T 

0000 

Kl 0 

7357 

Kl 00 

7366 

Kl 2 

7276 

Kl 7 

7367 

K2 

7360 

K21 5 

7370 

K7700 

7221 

LINE 

7362 

LINES 

7217 

MULTIP 

7346 

M124 

7356 

M212 

7361 

m 

7371 

M5 

7365 

M65 

7363 

NEWP 

7233 

NUMPRI 

7274 

OUT 

7324 

PAGE 

7354 

REGSET 

7355 

RESET 

7200 

RETUP . 

7313 

RETURN 

0214 

SKIP 

7213 

TEXT 

7374 





r 
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